home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 073 - ProSEL 3.3.dsk / STARTUP.bas < prev    next >
BASIC Source File  |  2019-02-17  |  5KB  |  83 lines
  1. 10 MO$ =  CHR$(27) + CHR$(15):MF$ =  CHR$(24) + CHR$(14):CH$ = MO$ +"D" +MF$ +" ":L$ = "LLLLLL":P$ = "PROSEL":Q$ = " " +P$ +" "
  2. 20  TEXT : PRINT  CHR$(4)"PR#3": PRINT  CHR$(12);
  3. 30  PRINT  TAB( 30)"Welcome to "P$"."
  4. 40  PRINT  TAB( 30)MO$L$L$L$MF$
  5. 50  PRINT  TAB( 5)MO$"[[["MF$" The best and most complete set of disk utilities you can buy. "MO$"[[["MF$
  6. 60  PRINT MO$;: FOR I = 1 TO 11: PRINT "SSSSSSS";: NEXT : PRINT MF$
  7. 70  PRINT : PRINT "The"Q$"package contains, among many others, the following major programs:": PRINT 
  8. 80  PRINT CH$P$" - The fastest, most versatile PROgram SELector available."
  9. 90  PRINT CH$"CAT.DOCTOR - the premier filer."
  10. 100  PRINT CH$"BEACH.COMBER - the only disk optimizer for the Apple // series."
  11. 110  PRINT CH$"MR.FIXIT - extensive disk repair facilities."
  12. 120  PRINT CH$"BACKUP & RESTORE - the fastest hard disk & ram disk backup/restore programs."
  13. 130  PRINT CH$"BLOCK.WARDEN - an easy to use, extremely versatile disk block editor."
  14. 140  PRINT CH$"COPY - a fast versatile volume copier."
  15. 150  PRINT CH$"INFO.DESK - tree-structure cataloger with several modes."
  16. 160  PRINT CH$"FILE.FINDER - file locator, an indispensible tool on hard disks."
  17. 170  PRINT CH$"QUEUEP - automatic program sequencer with both absolute and relative timing."
  18. 180  PRINT CH$"CACHE - a ram caching program which can cache hard disks and 3.5" CHR$(34)" disks."
  19. 190  POKE 34,4: GOSUB 810
  20. 200  PRINT  TAB( 30)"Copyright 1987  by": PRINT 
  21. 210  PRINT  TAB( 32)"Glen E. Bredon"
  22. 220  PRINT  TAB( 32)"521 State Road"
  23. 230  PRINT  TAB( 29)"Princeton, NJ  08540": PRINT 
  24. 240  PRINT  TAB( 32)"(609) 924-5976": PRINT 
  25. 250  PRINT  TAB( 29)"All rights reserved."
  26. 260  VTAB 15: PRINT " ";: FOR I = 1 TO 11: PRINT "_______";: NEXT : PRINT 
  27. 270  FOR I = 1 TO 7: PRINT MO$"Z"MF$;: POKE 36,78: PRINT MO$"_"MF$: NEXT 
  28. 280  PRINT " "MO$;: FOR I = 1 TO 11: PRINT "L"L$;: NEXT : PRINT MF$
  29. 290  VTAB 17: HTAB 6: PRINT "If this box is bordered by inverse characters then you do not have"
  30. 300  HTAB 6: PRINT "an ENHANCED //e, or later machine.  Although"Q$"will work on such"
  31. 310  HTAB 6: PRINT "machines, it will not look good, and the enhancement is highly"
  32. 320  HTAB 6: PRINT "recommended.  Note: some so-called " CHR$(34)"enhancements" CHR$(34)" are not full;"
  33. 330  HTAB 6: PRINT "get the real thing!": GOSUB 810
  34. 340  PRINT  TAB( 33)MO$"SU"MF$" NOTICE "MO$"HS"MF$
  35. 350  PRINT  TAB( 36)MO$L$MF$
  36. 360  PRINT : PRINT "All programs in the"Q$"package are copyrighted.  It is a violation of"
  37. 370  PRINT "federal copyright law to transmit these programs to others, whether for profit"
  38. 380  PRINT "or not.  For your convenience,"Q$"has no copy protection, and is sold at"
  39. 390  PRINT "a very modest price.  Unfortunately, there are those who believe that an"
  40. 400  PRINT "author has no right to a just return on his labor.  For the most part,"
  41. 410  PRINT P$" is only available from the author directly, but there are some"
  42. 420  PRINT "exceptions.  If you see"Q$"being offered through any other channels, it"
  43. 430  PRINT "would be greatly appreciated if you would communicate the details to the"
  44. 440  PRINT "author so that appropriate action can be taken."
  45. 450  PRINT : PRINT "The assembly source code to"Q$"is over 40,000 lines long, occupies a"
  46. 460  PRINT "binder about 3 inches thick, and took over two years to develop."
  47. 470  GOSUB 810
  48. 480  PRINT  TAB( 33)"INSTALLATION"
  49. 490  PRINT  TAB( 33)MO$L$L$MF$
  50. 500  PRINT "The installation program will automatically check for possible problems and"
  51. 510  PRINT "will install"Q$"and the disk utilities on a ProDOS volume of your"
  52. 520  PRINT "choosing.  Although it may rename some files, it will do nothing irreversible."
  53. 530  PRINT : PRINT "The revision installation revises only the files "P$".SYSTEM and "P$";"
  54. 540  PRINT "other revised files should be copied using CAT.DOCTOR."
  55. 550  PRINT : PRINT "Please press a number key to select an option:": PRINT 
  56. 560  PRINT "0 - Exit to Applesoft BASIC."
  57. 570  PRINT "1 - Install a new"Q$"on a ProDOS volume of your choice."
  58. 580  PRINT "2 - Install a revision over an old"Q$"version."
  59. 590  PRINT "3 - Print documentation."
  60. 600  PRINT "4 - Copy the disk."
  61. 610  PRINT "5 - Return to start of this program."
  62. 620  PRINT : PRINT "Select 0-5: ";
  63. 630  GET K$: IF K$ <"0"  OR K$ >"5"  THEN 630
  64. 640  PRINT K$;: POKE 34,7: PRINT  CHR$(12)
  65. 650  ON  VAL(K$) GOTO 670,690,700,790,10
  66. 660  TEXT : PRINT  CHR$(12): PRINT  CHR$( ASC("U") -64): HOME : NEW : END 
  67. 670  IF  PEEK(64435) = 6  THEN  PRINT  CHR$(4)"-INSTALL."P$: END 
  68. 680  PRINT  CHR$(4)"-I.P.PLUS": END 
  69. 690  PRINT  CHR$(4)"-INSTALL.REVISN": END 
  70. 700  POKE 34,4: PRINT  CHR$(12): PRINT  TAB( 30)"PRINT DOCUMENTATION"
  71. 710  PRINT  TAB( 30)MO$L$L$L$"L"MF$: PRINT : PRINT 
  72. 720  PRINT  TAB( 14)"Please insert the side /"P$".DOC/ and press a key.": GOSUB 830
  73. 730  ONERR  GOTO 780
  74. 740  PRINT  CHR$(4)"VERIFY/"P$".DOC"
  75. 750  POKE 216,0: PRINT  CHR$(4)"PREFIX/"P$".DOC"
  76. 760  TEXT : PRINT  CHR$(12): PRINT  CHR$(4)"-PRINT.DOC"
  77. 770  STOP 
  78. 780  CALL 62248: PRINT  CHR$(7): GOTO 720
  79. 790  TEXT : PRINT  CHR$(12): PRINT  CHR$(4)"-COPY"
  80. 800  STOP 
  81. 810  VTAB 24: PRINT  TAB( 32)"Press a key. ";
  82. 820  GOSUB 830: VTAB 10: PRINT : PRINT  CHR$(12): RETURN 
  83. 830  POKE 49168,0: WAIT 49152,128: POKE 49168,0: RETURN